home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / media / gallery.Dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1996-12-29  |  2.2 KB  |  28 lines
  1. on exitFrame
  2.   global gObjCaptain, gPanoObject, gDisplayInfo, gDemoBtn, gDemoEnabled
  3.   set the regPoint of member "demo btn" to point(-1000, -1000)
  4.   preLoad(preLoadFrame)
  5.   markerChange(gObjCaptain)
  6.   set the pNavMode of gPanoObject to 0
  7.   set urbanskiBtn to new(script "display info button", 4, "urbanski btn", "urbanski", "gallery.dir")
  8.   set bmwBtn to new(script "display info button", 5, "bmw btn", "bmw", "gallery.dir")
  9.   set saulsBtn to new(script "display info button", 6, "sauls btn", "sauls", "gallery.dir")
  10.   set crawfordBtn to new(script "display info button", 7, "crawford btn", "crawford", "gallery.dir")
  11.   set contagious2Btn to new(script "display info button", 8, "contagious2 btn", "contagious2", "gallery.dir")
  12.   set wagner2Btn to new(script "display info button", 9, "wagner2 btn", "wagner2", "gallery.dir")
  13.   set palermoBtn to new(script "display info button", 10, "palermo btn", "palermo", "gallery.dir")
  14.   set dazzled2Btn to new(script "display info button", 11, "dazzled2 btn", "dazzled2", "gallery.dir")
  15.   set blanpiedBtn to new(script "display info button", 12, "blanpied btn", "blanpied", "gallery.dir")
  16.   set slavinBtn to new(script "display info button", 13, "slavin btn", "slavin", "gallery.dir")
  17.   set fitzgeraldBtn to new(script "display info button", 14, "fitzgerald btn", "fitzgerald", "gallery.dir")
  18.   set greenleigh2Btn to new(script "display info button", 15, "greenleigh2 btn", "greenleigh2", "gallery.dir")
  19.   set kelseyBtn to new(script "display info button", 16, "kelsey btn", "kelsey", "gallery.dir")
  20.   set kassowitzBtn to new(script "display info button", 17, "kassowitz btn", "kassowitz", "gallery.dir")
  21.   set pengBtn to new(script "display info button", 18, "peng btn", "peng", "gallery.dir")
  22.   set redhillBtn to new(script "display info button", 19, "redhill btn", "redhill", "gallery.dir")
  23.   set space2Btn to new(script "display info button", 20, "space2 btn", "space2", "gallery.dir")
  24.   set studiosourceBtn to new(script "display info button", 21, "studiosource btn", "studiosource", "gallery.dir")
  25.   set tahitiBtn to new(script "display info button", 22, "tahiti btn", "tahiti", "gallery.dir")
  26.   set zoecomBtn to new(script "display info button", 23, "zoecom btn", "zoecom", "gallery.dir")
  27. end
  28.